home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / tc / install / install_tc < prev   
Encoding:
Text File  |  1996-06-11  |  17.0 KB  |  614 lines
  1. ;
  2. ; $VER: Installation de Timeconnect 31 mars 1996
  3. ;
  4. ;       Alain Gaspard  agaspard@mail.atlantic-line.fr
  5. ;       Nick IRC:      _AG_
  6.  
  7. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  8. ; Chaînes anglaises par Jean-François PIK
  9. ;
  10. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  11. (if (= @language "english")
  12.     (
  13.     (set default_lang 0 )
  14.  
  15.     (set #bonjour "This script installs Timeconnect")
  16.  
  17.     (set #muiversion "Timeconnect needs MUI 3.1 to work\nPlease install MUI" )
  18.  
  19.     (set #askdir "\nSelect a drawer.\n A 'TC' directory will be created.\n" )
  20.  
  21.     (set #copie-TC "Copying TC and TC.info" )
  22.  
  23.     (set #copie-TCEDLog "Copying TCEDLog and TCEDLog.info" )
  24.  
  25.     (set #copie-TCPrefs "Copying TCPrefs and TCPrefs.info" )
  26.  
  27.     (set #choix-pref "Choose your preferences" )
  28.  
  29.     (set #copie-pref "Copying Timeconnect.prefs" )
  30.  
  31.     (set #path-cat "english" )
  32.  
  33.     (set #bye "Timeconnect is now installed in " )
  34.  
  35.     (set #lancement "Choose your start script" )
  36.  
  37.     (set #prefexiste "Timeconnect.prefs still exists, do you want overwrite?" )
  38.  
  39.     (set #oui "yes" )
  40.  
  41.     (set #non "no")
  42.  
  43.     (set #askfile-help "this line:\n RUN >NIL TC/TC \n will be added to your startscript.\n but the old one is save in .bak before.")
  44.  
  45.     ( set #TCaulancement "Do you want to launch TimeConnect at start of the connection ?" )
  46.  
  47.     ( set #TCdocumentation "Do you want to copy the doc ?" )
  48.  
  49.     ( set #scriptarexx "Do you want to copy the ARexx scripts ?" )
  50.  
  51. )    )
  52.  
  53.  
  54. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  55. ; Chaînes françaises  par _AG_
  56. ;
  57. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  58. (if (= @language "français")
  59.     (
  60.     (set default_lang 8)
  61.  
  62.     (set #bonjour "Ce script installe Timeconnect")
  63.  
  64.     (set #muiversion "Timeconnect a besoin de MUI 3.1 pour fonctionner\n Veuillez installer MUI" )
  65.  
  66.     (set #askdir "Indiquez oû sera créé le répertoire TC.\n" )
  67.  
  68.     (set #askdir-help "Par défaut TC est installé dans le répertoire AmiTCP" )
  69.  
  70.     (set #copie-TC "Copie de TC et TC.info" )
  71.  
  72.     (set #copie-TCEDLog "Copie de TCEDLog et TCEDLog.info" )
  73.  
  74.     (set #copie-TCPrefs "Copie de TCPrefs et Copie de TCPrefs.info" )
  75.  
  76.     (set #choix-pref "Choisissez les préférences que vous voulez" )
  77.  
  78.     (set #copie-pref "Copie de Timeconnect.prefs" )
  79.  
  80.     (set #path-cat "français" )
  81.  
  82.     (set #TC-Cata  "/Catalogs/français/TC.catalog" )
  83.  
  84.     (set #TCEDLog-cata  "/Catalogs/français/TCEDLog.catalog" )
  85.  
  86.     (set #TCPrefs-cata  "/Catalogs/français/TCPrefs.catalog" )
  87.  
  88.     (set #bye "Timeconnect est installé dans " )
  89.  
  90.     (set #lancement "Choisissez votre script de lancement" )
  91.  
  92.     (set #prefexiste "Timeconnect.prefs existe, voulez-vous l'écrasez ?" )
  93.  
  94.     (set #oui "oui" )
  95.  
  96.     (set #non "non")
  97.  
  98.     (set #askfile-help "Cette ligne:\n RUN >NIL TC/TC \nva être ajoutée à votre script de lancement.\n Une sauvegarde .bak est auparavant faite.")
  99.  
  100.     ( set #TCaulancement "Voulez-vous démarrez TimeConnect au lancement de votre connection ?" )
  101.  
  102.     ( set #TCdocumentation "Voulez-vous copier la documentation ?" )
  103.  
  104.     ( set #scriptarexx "Voulez-vous copier les scripts ARexx ?" )
  105. )    )
  106. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  107. ; Chaînes allemandes par "Björn Schotte"
  108. ;
  109. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  110. (if (= @language "deutsch")
  111.     (
  112.     (set default_lang 2)
  113.  
  114.     (set #bonjour "Hallo, dieses script installiert TimeConnect")
  115.  
  116.     (set #muiversion "Timeconnect braucht MUI 3.1 um zu functionnieren\n Bitte installiert MUI" )
  117.  
  118.     (set #askdir "Wählen Sie ein Verzeichnis aus.\nEin Verzeichnis namens 'TC' wird kreiert.\n" )
  119.  
  120.     (set #askdir-help "Per Default wird TC in AmiTCP: installiert." )
  121.  
  122.     (set #copie-TC "Kopiere TC und TC.info" )
  123.  
  124.     (set #copie-TCEDLog "Kopiere TCEDLog und TCEDLog.info" )
  125.  
  126.     (set #copie-TCPrefs "Kopiere TCPrefs und TCPrefs.info" )
  127.  
  128.     (set #choix-pref "Wählen Sie die Voreinstellungen aus,\ndie Sie wollen." )
  129.  
  130.     (set #copie-pref "Kopiere Timeconnect.prefs" )
  131.  
  132.     (set #path-cat "deutsch" )
  133.  
  134.     (set #TC-Cata  "/Catalogs/deutsch/TC.catalog" )
  135.  
  136.     (set #TCEDLog-cata  "/Catalogs/deutsch/TCEDLog.catalog" )
  137.  
  138.     (set #TCPrefs-cata  "/Catalogs/deutsch/TCPrefs.catalog" )
  139.  
  140.     (set #bye "Timeconnect wurde installiert in " )
  141.  
  142.     (set #lancement "Wählen Sie Ihr Start-Skript" )
  143.  
  144.     (set #prefexiste "Timeconnect.prefs existiert, wollen Sie sie überschreiben?" )
  145.  
  146.     (set #oui "ja" )
  147.  
  148.     (set #non "nein")
  149.  
  150.     (set #askfile-help "Diese Zeile:\n RUN >NIL TC/TC \nwird in Ihr Start-Skript eingefügt.\n Eine Sicherheitskopie wird erstellt.")
  151.  
  152.     ( set #TCaulancement "Möchten Sie TimeConnect beim Start Ihrer Verbindung starten?" )
  153.  
  154.     ( set #TCdocumentation "Möchten Sie die Dokumentation installieren ?" )
  155.  
  156.     ( set #scriptarexx "Möchten Sie die ARexx-Skripts installieren ?" )
  157. )    )
  158. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  159. ; Chaînes italiennes par "Tradotto da Francesco Mancuso (Sicily) {11.06.96}"
  160. ;
  161. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  162. (if (= @language "italiano")
  163.     (
  164.     (set default_lang 16)
  165.  
  166.     (set #bonjour "Questo script installa Timeconnect")
  167.  
  168.     (set #muiversion "Timeconnect per funzionare necessita della MUI 3.1\nInstallate prima MUI" )
  169.  
  170.     (set #askdir "Indica dove sarà creato il cassetto TC.\n" )
  171.  
  172.     (set #askdir-help "Come Standard viene installato nel cassetto AmiTCP" )
  173.  
  174.     (set #copie-TC "Copio il programma TC e TC.info" )
  175.  
  176.     (set #copie-TCEDLog "Copio TCEDLog e TCEDLog.info" )
  177.  
  178.     (set #copie-TCPrefs "Copio TCPrefs e TCPrefs.info" )
  179.  
  180.     (set #choix-pref "Scegliete le preferenze" )
  181.  
  182.     (set #copie-pref "Copio la Timeconnect.prefs" )
  183.  
  184.     (set #path-cat "italiano" )
  185.  
  186.     (set #TC-Cata  "/Catalogs/italiano/TC.catalog" )
  187.  
  188.     (set #TCEDLog-cata  "/Catalogs/italiano/TCEDLog.catalog" )
  189.  
  190.     (set #TCPrefs-cata  "/Catalogs/italiano/TCPrefs.catalog" )
  191.  
  192.     (set #bye "Timeconnect é installato nel " )
  193.  
  194.     (set #lancement "Scegliete il vostro script d'avvio" )
  195.  
  196.     (set #prefexiste "Timeconnect.prefs esiste, volete sovrascriverlo ?" )
  197.  
  198.     (set #oui "Si" )
  199.  
  200.     (set #non "No")
  201.  
  202.     (set #askfile-help "Questa linea:\n RUN >NIL TC/TC \nsarà aggiunta nello script d'avvio.\n ma prima sarà fatta una copia .backup del precedente script.")
  203.  
  204.     ( set #TCaulancement "Volete avviare TimeConnect allo start della connessione ?" )
  205.  
  206.     ( set #TCdocumentation "Volete copiare la documentazione ?" )
  207.  
  208.     ( set #scriptarexx "Volete copiare l'ARexx scripts ?" )
  209. )    )
  210.  
  211. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  212. ; Chaînes dansk by "Henrik Jensen EMAIL:hkjensen@@mail.teledanmark.dk"
  213. ;
  214. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  215. (if (= @language "dansk")
  216.     (
  217.     (set default_lang 32 )
  218.  
  219.     (set #bonjour "Denne script installerer Timeconnect")
  220.  
  221.     (set #muiversion "Timeconnect behøver MUI 3.1 for at virke\nInstaller venligst MUI" )
  222.  
  223.     (set #askdir "\nVælg en skuffe.\n Et 'TC' skuffe vil blive dannet.\n" )
  224.  
  225.     (set #copie-TC "Kopiere TC and TC.info" )
  226.  
  227.     (set #copie-TCEDLog "Kopierer TCEDLog and TCEDLog.info" )
  228.  
  229.     (set #copie-TCPrefs "Kopierer TCPrefs and TCPrefs.info" )
  230.  
  231.     (set #choix-pref "Vælg dine præferenser" )
  232.  
  233.     (set #copie-pref "Kopierer Timeconnect.prefs" )
  234.  
  235.     (set #path-cat "dansk" )
  236.  
  237.     (set #TC-Cata  "/Catalogs/dansk/TC.catalog" )
  238.  
  239.     (set #TCEDLog-cata  "/Catalogs/dansk/TCEDLog.catalog" )
  240.  
  241.     (set #TCPrefs-cata  "/Catalogs/dansk/TCPrefs.catalog" )
  242.  
  243.     (set #bye "Timeconnect er installeret i " )
  244.  
  245.     (set #lancement "Vælg din start script" )
  246.  
  247.     (set #prefexiste "Timeconnect.prefs forefindes, skal den overskrives?" )
  248.  
  249.     (set #oui "ja" )
  250.  
  251.     (set #non "nej")
  252.  
  253.     (set #askfile-help "Denne linie:\n RUN >NIL TC/TC \n vil blive tilføjet til din start script.\n men den gamle er for inden gemt i in .bak.")
  254.  
  255.     ( set #TCaulancement "Vil du starte TimeConnect ved begyndelsen af forbindelsen ?" )
  256.  
  257.     ( set #TCdocumentation "Vil du kopiere dokumentationen ?" )
  258.  
  259.     ( set #scriptarexx "Vil du kopiere ARexx scripts ?" )
  260.  
  261. )    )
  262.  
  263. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  264. ; Installation
  265. ;
  266. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267. (message #bonjour)
  268.  
  269. (welcome)
  270.  
  271. (if (< (exists "mui:") 2)  (abort #muiversion) )
  272. (if (exists "mui:mui")
  273.  (
  274.   (set vernum (getversion "mui:mui") )
  275.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  276.  
  277.   (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  278.   (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  279.   (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  280.  
  281. ) )
  282.  
  283. (if (< ver 11)   (abort #muiversion) )
  284.  
  285. ; Répertoire de destination
  286. ; *************************
  287.  
  288. ;( set Path.source (pathonly @icon ) )
  289.  
  290. (set  Path.dest
  291.         ( askdir
  292.                 ( prompt #askdir )
  293.                 ( help #askdir-help )
  294.                 ( default "AmiTCP:" )
  295.         )
  296. )
  297.  ( set  Path.dest ( tackon Path.dest "TC" ) ) ( makedir Path.dest )
  298.  
  299. ; Copie de Timeconnect et Timeconnect.info
  300. ; ****************************************
  301.  
  302. ( copyfiles
  303.     ( prompt #Copie-TC )
  304.     ( source "/TC" )
  305.     ( dest Path.dest )
  306. )
  307.  
  308. ( copyfiles
  309.     ( prompt #copie-TC )
  310.     ( source "/TC.info" )
  311.     (dest Path.dest )
  312. )
  313. ; Copie de TCEDLog et TCEDLog.info
  314. ; ********************************
  315.  
  316. (copyfiles
  317.     ( prompt #copie-TCEDLog )
  318.     ( source "/TCEDLog" )
  319.     ( dest Path.dest )
  320. )
  321.  
  322. ( copyfiles
  323.     ( prompt #copie-TCEDLog )
  324.     ( source "/TCEDLog.info" )
  325.     ( dest Path.dest )
  326. )
  327. ; Copie de TCPrefs et TCPrefs.info
  328. ; ********************************
  329.  
  330. ( copyfiles
  331.     ( prompt #copie-TCPrefs )
  332.     ( source "/TCPrefs" )
  333.     ( dest Path.dest )
  334. )
  335.  
  336. ( copyfiles
  337.     ( prompt #copie-TCPrefs )
  338.     ( source "/TCPrefs.info" )
  339.     ( dest Path.dest )
  340. )
  341. ; Copie de Timeconnect.prefs
  342. ; **************************
  343. ( if ( exists "ENVARC:timeconnect.prefs" )
  344.      (
  345.      ( set ecrase
  346.      ( askchoice
  347.        ( prompt #prefexiste )
  348.        ( choices #oui #non )
  349.        ( help ""  )
  350.       ) ) ) )
  351.  
  352. ( if ( = ecrase 0 )
  353.     (
  354.  
  355. ( if ( = default_lang 8 )
  356.      (
  357.      ( set preference
  358.      ( askchoice
  359.      ( prompt #choix-pref )
  360.      ( choices "Locale" "<25Km" )
  361.      ( help "") ) )
  362.  
  363.      (if (= preference 0) ( set #preference "/Prefs/France/timeconnect.prefs") )
  364.      (if (= preference 1) ( set #preference "/Prefs/France/timeconnect_<25km.prefs") )
  365.      ) )
  366.  
  367. ( if ( = default_lang 16 )
  368.      ( set #preference "/Prefs/Italia/timeconnect.prefs") )
  369.  
  370. (if  ( = default_lang 2 )
  371.      (
  372.      ( set preference
  373.      ( askchoice
  374.      ( prompt #choix-pref )
  375.      ( choices "DeutschlandCity" "DeutschlandFern" "DeutschlandRegion200" "DeutschlandRegion50")
  376.      ( help "") ) )
  377.  
  378.      (if (= preference 0) ( set #preference "/Prefs/Deutschland/DeutschlandCity.prefs") )
  379.      (if (= preference 1) ( set #preference "/Prefs/Deutschland/DeutschlandFern.prefs") )
  380.      (if (= preference 2) ( set #preference "/Prefs/Deutschland/DeutschlandRegion200.prefs") )
  381.      (if (= preference 3) ( set #preference "/Prefs/Deutschland/DeutschlandRegion50.prefs") )
  382.      ) )
  383. (if  ( = default_lang 32 )
  384.      (
  385.      ( set preference
  386.      ( askchoice
  387.      ( prompt #choix-pref )
  388.      ( choices "Lokaltakst" "Regiontakst" "Landstakst")
  389.      ( help "") ) )
  390.  
  391.      (if (= preference 0) ( set #preference "/Prefs/Danmark/Lokaltakst.prefs") )
  392.      (if (= preference 1) ( set #preference "/Prefs/Danmark/Regiontakst.prefs") )
  393.      (if (= preference 2) ( set #preference "/Prefs/Danmark/Landstakst.prefs") )
  394.      ) )
  395.  
  396. (if ( > default_lang 0 )
  397.     (
  398.    
  399.     ( copyfiles
  400.        ( prompt #copie-pref )
  401.        ( source  #preference  )
  402.        ( dest "ENVARC:")
  403.        (newname "Timeconnect.prefs")
  404.     )
  405.     ( copyfiles
  406.        ( prompt #copie-pref )
  407.        ( source  #preference  )
  408.        ( dest "ENV:")
  409.        ( newname "Timeconnect.prefs")
  410.     ) ) )
  411.     ) )
  412. ; Installation des catalogues
  413. ; ***************************
  414. (if ( > default_lang 0 )
  415.     (
  416.     ( set  Path-cat ( tackon Path.dest "Catalogs" ) ) ( makedir Path-cat )
  417.     ( set  Path-cat ( tackon Path-cat #path-cat ) ) ( makedir Path-cat )
  418.         ( copyfiles
  419.             (prompt "")
  420.             (source #TC-Cata )
  421.             (dest  Path-cat )
  422.             (newname "TC.catalog")
  423.         )
  424.         ( copyfiles
  425.             (prompt "")
  426.             (source #TCEDLog-cata )
  427.             (dest Path-cat )
  428.             (newname "TCEDLog.catalog")
  429.         )
  430.         ( copyfiles
  431.             (prompt "")
  432.             (source #TCPrefs-cata )
  433.             (dest Path-cat )
  434.             (newname "TCPrefs.catalog")
  435.         )
  436. ) )
  437.  
  438. ; Installation de la documentation
  439. ; ********************************
  440.  
  441.     ( set installdoc
  442.      ( askchoice
  443.        ( prompt #TCdocumentation )
  444.        ( choices #oui #non )
  445.        ( help ""  ) ) )
  446.  
  447. ( if ( = installdoc 0 )
  448.     (
  449.      (
  450.        ( set #documentation "/Docs/english/TimeConnect.guide")
  451.        ( set #docinfo "/Docs/english/TimeConnect.guide.info")
  452.        ( set  Path-doc ( tackon Path.dest "Docs" ) ) ( makedir Path-doc )
  453.      )
  454. ( if ( = default_lang 16 )
  455.      (
  456.  
  457.      ( set #documentation "/Docs/italiano/TimeConnect.guide")
  458.      ( set #docinfo "/Docs/italiano/TimeConnect.guide.info")
  459.      ) )
  460.  
  461.      (
  462.         ( copyfiles
  463.             (prompt "TimeConnect.guide")
  464.             (source #documentation )
  465.             (dest Path-doc )
  466.             (newname "TimeConnect.guide")
  467.         )
  468.         ( copyfiles
  469.             (prompt "TimeConnect.guide.info")
  470.             (source #docinfo )
  471.             (dest Path-doc )
  472.             (newname "TimeConnect.guide.info")
  473.         )
  474.      )
  475. ( if ( = default_lang 16 )
  476.      (
  477.  
  478.      ( set #docinfo2 "/Docs/italiano/images.info")
  479.      ( set #image1 "/Docs/italiano/images/configurazione" )
  480.      ( set #image2 "/Docs/italiano/images/EditaPrefs" )
  481.      ( set #image3 "/Docs/italiano/images/giorno" )
  482.      ( set #image4 "/Docs/italiano/images/selezionaora" )
  483.      ( set #image5 "/Docs/italiano/images/TCEDLog" )
  484.      ( set #image6 "/Docs/italiano/images/TM" )
  485.      ( set  Path-image ( tackon Path.dest "Docs/images" ) ) ( makedir Path-image )
  486.  
  487.         ( copyfiles
  488.             (prompt "images.info")
  489.             (source #docinfo2 )
  490.             (dest Path-doc )
  491.             (newname "images.info")
  492.         )
  493.         ( copyfiles
  494.             (prompt "images/configurazione")
  495.             (source #image1 )
  496.             (dest Path-image )
  497.             (newname "configurazione")
  498.         )
  499.         ( copyfiles
  500.             (prompt "images/EditaPrefs")
  501.             (source #image2 )
  502.             (dest Path-image )
  503.             (newname "EditaPrefs")
  504.         )
  505.         ( copyfiles
  506.             (prompt "images/giorno")
  507.             (source #image3 )
  508.             (dest Path-image )
  509.             (newname "giorno")
  510.         )
  511.         ( copyfiles
  512.             (prompt "images/selezionaora")
  513.             (source #image4 )
  514.             (dest Path-image )
  515.             (newname "selezionaora")
  516.         )
  517.         ( copyfiles
  518.             (prompt "images/TCEDLog")
  519.             (source #image5 )
  520.             (dest Path-image )
  521.             (newname "TCEDLog")
  522.         )
  523.         ( copyfiles
  524.             (prompt "images/TM")
  525.             (source #image6 )
  526.             (dest Path-image )
  527.             (newname "TM")
  528.         )  
  529.      ) )
  530.  
  531. ) )
  532.  
  533. ; Installation des scripts ARexx
  534. ; ******************************
  535.  
  536. ( if ( exists "REXX:" )
  537.     (
  538.     ( set installearexx
  539.     ( askchoice
  540.        ( prompt #scriptarexx )
  541.        ( choices #oui #non )
  542.        ( help ""  ) ) )
  543.  
  544. ( if ( = installearexx 0 )
  545.      (
  546.      ( set #launch "/Rexx/launchTC.mrx")
  547.      ( set #start "/Rexx/start.mrx")
  548.      ( set #stop "/Rexx/stop.mrx")
  549.      ( makedir "REXX:TC" )
  550.      ( set Path-REXX "REXX:TC")
  551.      ( copyfiles
  552.             (prompt "")
  553.             (source #launch )
  554.             (dest Path-REXX )
  555.             (newname "launchTC.mrx")
  556.      )
  557.      ( copyfiles
  558.             (prompt "")
  559.             (source #start )
  560.             (dest Path-REXX )
  561.             (newname "start.mrx")
  562.      )
  563.      ( copyfiles
  564.             (prompt "")
  565.             (source #stop )
  566.             (dest Path-REXX )
  567.             (newname "stop.mrx")
  568.      )
  569.      )  )  )  )
  570.  
  571. ; Modification user-startnet
  572. ; **************************
  573.  
  574.     ( set ecrase
  575.      ( askchoice
  576.        ( prompt #TCaulancement )
  577.        ( choices #oui #non )
  578.        ( help #askfile-help  ) ) )
  579.  
  580. ( if ( = ecrase 0 )
  581.     (
  582. ( set lancementTC
  583.         ( askfile
  584.                 ( prompt #lancement )
  585.                 ( help #askfile-help )
  586.                 ( default "AmiTCP:db/user-startnet" )
  587.         )
  588. )
  589.  
  590. ( set ARexxRunString ( cat "sys:rexxc/rx EditTextFile.rexx " lancementTC " TC RUN^>NIL:^"Path.dest"/TC" ))
  591.         (run
  592.                 ( ARexxRunString )
  593.                 ( prompt "" )
  594.                 ( help #askfile-help )
  595.         )
  596.         ( protect lancementTC "+s +e")
  597. ( tooltype
  598.                 ( dest ( cat Path.dest "/TC") )
  599.                 ( settooltype "START" "YES")
  600.         )
  601. ;
  602. ;( set stopnet "AmiTCP:bin/stopnet" )
  603. ;( set ARexxStopString ( cat "sys:rexxc/rx EditTextFile.rexx " stopnet "TC rx^REXX:TC/stop.mrx" ))
  604. ;        (run
  605. ;                ( ARexxStopString )
  606. ;                ( prompt stopnet )
  607. ;                ( help #askfile-help )
  608. ;        )
  609. ;        ( protect stopnet "+s +e")
  610. ) )
  611. ( set @default-dest "")
  612. ( exit ( cat #bye Path.dest ) )
  613. ;****************************************************************************
  614.